home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / dll4vb / form1.frm < prev    next >
Text File  |  1995-05-08  |  994b  |  38 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   930
  5.    ClientLeft      =   1800
  6.    ClientTop       =   2685
  7.    ClientWidth     =   3645
  8.    Height          =   1335
  9.    Left            =   1740
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   930
  13.    ScaleWidth      =   3645
  14.    Top             =   2340
  15.    Width           =   3765
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Square"
  18.       Default         =   -1  'True
  19.       Height          =   375
  20.       Left            =   1920
  21.       TabIndex        =   1
  22.       Top             =   240
  23.       Width           =   1335
  24.    End
  25.    Begin TextBox Text1 
  26.       Height          =   375
  27.       Left            =   360
  28.       TabIndex        =   0
  29.       Text            =   "3"
  30.       Top             =   240
  31.       Width           =   1215
  32.    End
  33. End
  34. Sub Command1_Click ()
  35. text1.text = Str$(SquareInt(Val(text1.text)))
  36. End Sub
  37.  
  38.